object dlgRecSound: TdlgRecSound Left = 455 Top = 243 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Record Sound' ClientHeight = 186 ClientWidth = 387 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 8 Width = 370 Height = 137 Shape = bsFrame end object lblTime: TLabel Left = 20 Top = 74 Width = 90 Height = 13 Caption = 'Length: 0 Seconds' end object Label1: TLabel Left = 20 Top = 20 Width = 334 Height = 39 Caption = 'This dialog allows you to record a sound that will be played dur' + 'ing your slideshow (such as your voice). '#13#10'NOTE: You need to ha' + 've a microphone connected.' WordWrap = True end object Label2: TLabel Left = 160 Top = 4 Width = 69 Height = 13 Caption = 'Sound Quality:' Visible = False end object MediaPlayer1: TMediaPlayer Left = 24 Top = 128 Width = 29 Height = 30 VisibleButtons = [btRecord] Visible = False TabOrder = 0 end object btnRecord: TsitBitBtn Left = 20 Top = 98 Width = 113 Height = 25 Caption = 'Start Recording' TabOrder = 1 OnClick = btnRecordClick Images = frmMain.ilstButtons16 ImageIndex = 43 end object btnStop: TsitBitBtn Left = 140 Top = 98 Width = 105 Height = 25 Caption = 'Stop' Enabled = False TabOrder = 2 OnClick = btnStopClick Images = frmMain.ilstButtons16 ImageIndex = 44 end object btnPlay: TsitBitBtn Left = 252 Top = 98 Width = 113 Height = 25 Caption = 'Play Recording' Enabled = False TabOrder = 3 OnClick = btnPlayClick Images = frmMain.ilstButtons16 ImageIndex = 42 end object btnSave: TsitBitBtn Left = 209 Top = 152 Width = 80 Height = 25 Caption = 'Save' Default = True Enabled = False ModalResult = 1 TabOrder = 4 OnClick = btnSaveClick Images = frmMain.ilstButtons16 ImageIndex = 2 end object BitBtn2: TsitBitBtn Left = 297 Top = 152 Width = 80 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 5 OnClick = BitBtn2Click Images = frmMain.ImageList1 ImageIndex = 1 end object cmbSoundQuality: TComboBox Left = 240 Top = 0 Width = 129 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 6 Visible = False Items.Strings = ( 'Standard (mono)' 'Standard (stereo)' 'High (mono)' 'High (stereo)') end object Timer1: TTimer Enabled = False OnTimer = Timer1Timer Left = 64 Top = 128 end end